/ Komputer for Alle 2001 #9 / CD 9 (Black) - 2001.iso / Pinball / System / UWindow.u / UWindowWindow_UWindowEditControl_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 5e 17 63 6c 61 73 73 20 |........|^.class |
|00000010| 55 57 69 6e 64 6f 77 45 | 64 69 74 43 6f 6e 74 72 |UWindowE|ditContr|
|00000020| 6f 6c 20 65 78 74 65 6e | 64 73 20 55 57 69 6e 64 |ol exten|ds UWind|
|00000030| 6f 77 44 69 61 6c 6f 67 | 43 6f 6e 74 72 6f 6c 3b |owDialog|Control;|
|00000040| 0d 0a 0d 0a 76 61 72 09 | 66 6c 6f 61 74 09 09 09 |....var.|float...|
|00000050| 45 64 69 74 42 6f 78 57 | 69 64 74 68 3b 0d 0a 76 |EditBoxW|idth;..v|
|00000060| 61 72 20 66 6c 6f 61 74 | 09 09 09 45 64 69 74 41 |ar float|...EditA|
|00000070| 72 65 61 44 72 61 77 58 | 2c 20 45 64 69 74 41 72 |reaDrawX|, EditAr|
|00000080| 65 61 44 72 61 77 59 3b | 0d 0a 76 61 72 20 55 57 |eaDrawY;|..var UW|
|00000090| 69 6e 64 6f 77 45 64 69 | 74 42 6f 78 09 45 64 69 |indowEdi|tBox.Edi|
|000000a0| 74 42 6f 78 3b 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |tBox;...|.functio|
|000000b0| 6e 20 43 72 65 61 74 65 | 64 28 29 0d 0a 7b 0d 0a |n Create|d()..{..|
|000000c0| 09 53 75 70 65 72 2e 43 | 72 65 61 74 65 64 28 29 |.Super.C|reated()|
|000000d0| 3b 0d 0a 09 0d 0a 09 45 | 64 69 74 42 6f 78 20 3d |;......E|ditBox =|
|000000e0| 20 55 57 69 6e 64 6f 77 | 45 64 69 74 42 6f 78 28 | UWindow|EditBox(|
|000000f0| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 28 63 6c 61 |CreateWi|ndow(cla|
|00000100| 73 73 27 55 57 69 6e 64 | 6f 77 45 64 69 74 42 6f |ss'UWind|owEditBo|
|00000110| 78 27 2c 20 30 2c 20 30 | 2c 20 57 69 6e 57 69 64 |x', 0, 0|, WinWid|
|00000120| 74 68 2c 20 57 69 6e 48 | 65 69 67 68 74 29 29 3b |th, WinH|eight));|
|00000130| 20 0d 0a 09 45 64 69 74 | 42 6f 78 2e 4e 6f 74 69 | ...Edit|Box.Noti|
|00000140| 66 79 4f 77 6e 65 72 20 | 3d 20 53 65 6c 66 3b 0d |fyOwner |= Self;.|
|00000150| 0a 09 45 64 69 74 42 6f | 78 2e 62 53 65 6c 65 63 |..EditBo|x.bSelec|
|00000160| 74 4f 6e 46 6f 63 75 73 | 20 3d 20 54 72 75 65 3b |tOnFocus| = True;|
|00000170| 0d 0a 0d 0a 09 45 64 69 | 74 42 6f 78 57 69 64 74 |.....Edi|tBoxWidt|
|00000180| 68 20 3d 20 57 69 6e 57 | 69 64 74 68 20 2f 20 32 |h = WinW|idth / 2|
|00000190| 3b 0d 0a 0d 0a 09 53 65 | 74 45 64 69 74 54 65 78 |;.....Se|tEditTex|
|000001a0| 74 43 6f 6c 6f 72 28 4c | 6f 6f 6b 41 6e 64 46 65 |tColor(L|ookAndFe|
|000001b0| 65 6c 2e 45 64 69 74 42 | 6f 78 54 65 78 74 43 6f |el.EditB|oxTextCo|
|000001c0| 6c 6f 72 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |lor);..}|....func|
|000001d0| 74 69 6f 6e 20 53 65 74 | 4e 75 6d 65 72 69 63 4f |tion Set|NumericO|
|000001e0| 6e 6c 79 28 62 6f 6f 6c | 20 62 4e 75 6d 65 72 69 |nly(bool| bNumeri|
|000001f0| 63 4f 6e 6c 79 29 0d 0a | 7b 0d 0a 09 45 64 69 74 |cOnly)..|{...Edit|
|00000200| 42 6f 78 2e 62 4e 75 6d | 65 72 69 63 4f 6e 6c 79 |Box.bNum|ericOnly|
|00000210| 20 3d 20 62 4e 75 6d 65 | 72 69 63 4f 6e 6c 79 3b | = bNume|ricOnly;|
|00000220| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000230| 53 65 74 4e 75 6d 65 72 | 69 63 46 6c 6f 61 74 28 |SetNumer|icFloat(|
|00000240| 62 6f 6f 6c 20 62 4e 75 | 6d 65 72 69 63 46 6c 6f |bool bNu|mericFlo|
|00000250| 61 74 29 0d 0a 7b 0d 0a | 09 45 64 69 74 42 6f 78 |at)..{..|.EditBox|
|00000260| 2e 62 4e 75 6d 65 72 69 | 63 46 6c 6f 61 74 20 3d |.bNumeri|cFloat =|
|00000270| 20 62 4e 75 6d 65 72 69 | 63 46 6c 6f 61 74 3b 0d | bNumeri|cFloat;.|
|00000280| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 53 |.}....fu|nction S|
|00000290| 65 74 46 6f 6e 74 28 69 | 6e 74 20 4e 65 77 46 6f |etFont(i|nt NewFo|
|000002a0| 6e 74 29 0d 0a 7b 0d 0a | 09 53 75 70 65 72 2e 53 |nt)..{..|.Super.S|
|000002b0| 65 74 46 6f 6e 74 28 4e | 65 77 46 6f 6e 74 29 3b |etFont(N|ewFont);|
|000002c0| 0d 0a 09 45 64 69 74 42 | 6f 78 2e 53 65 74 46 6f |...EditB|ox.SetFo|
|000002d0| 6e 74 28 4e 65 77 46 6f | 6e 74 29 3b 0d 0a 7d 0d |nt(NewFo|nt);..}.|
|000002e0| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 53 65 74 48 |...funct|ion SetH|
|000002f0| 69 73 74 6f 72 79 28 62 | 6f 6f 6c 20 62 49 6e 48 |istory(b|ool bInH|
|00000300| 69 73 74 6f 72 79 29 0d | 0a 7b 0d 0a 09 45 64 69 |istory).|.{...Edi|
|00000310| 74 42 6f 78 2e 53 65 74 | 48 69 73 74 6f 72 79 28 |tBox.Set|History(|
|00000320| 62 49 6e 48 69 73 74 6f | 72 79 29 3b 0d 0a 7d 0d |bInHisto|ry);..}.|
|00000330| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 53 65 74 45 |...funct|ion SetE|
|00000340| 64 69 74 54 65 78 74 43 | 6f 6c 6f 72 28 43 6f 6c |ditTextC|olor(Col|
|00000350| 6f 72 20 4e 65 77 43 6f | 6c 6f 72 29 0d 0a 7b 0d |or NewCo|lor)..{.|
|00000360| 0a 09 45 64 69 74 42 6f | 78 2e 53 65 74 54 65 78 |..EditBo|x.SetTex|
|00000370| 74 43 6f 6c 6f 72 28 4e | 65 77 43 6f 6c 6f 72 29 |tColor(N|ewColor)|
|00000380| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00000390| 20 43 6c 65 61 72 28 29 | 0d 0a 7b 0d 0a 09 45 64 | Clear()|..{...Ed|
|000003a0| 69 74 42 6f 78 2e 43 6c | 65 61 72 28 29 3b 0d 0a |itBox.Cl|ear();..|
|000003b0| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 73 74 |}....fun|ction st|
|000003c0| 72 69 6e 67 20 47 65 74 | 56 61 6c 75 65 28 29 0d |ring Get|Value().|
|000003d0| 0a 7b 0d 0a 09 72 65 74 | 75 72 6e 20 45 64 69 74 |.{...ret|urn Edit|
|000003e0| 42 6f 78 2e 47 65 74 56 | 61 6c 75 65 28 29 3b 0d |Box.GetV|alue();.|
|000003f0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 53 |.}....fu|nction S|
|00000400| 65 74 56 61 6c 75 65 28 | 73 74 72 69 6e 67 20 4e |etValue(|string N|
|00000410| 65 77 56 61 6c 75 65 29 | 0d 0a 7b 0d 0a 09 45 64 |ewValue)|..{...Ed|
|00000420| 69 74 42 6f 78 2e 53 65 | 74 56 61 6c 75 65 28 4e |itBox.Se|tValue(N|
|00000430| 65 77 56 61 6c 75 65 29 | 3b 09 0d 0a 7d 0d 0a 0d |ewValue)|;...}...|
|00000440| 0a 66 75 6e 63 74 69 6f | 6e 20 53 65 74 4d 61 78 |.functio|n SetMax|
|00000450| 4c 65 6e 67 74 68 28 69 | 6e 74 20 4d 61 78 4c 65 |Length(i|nt MaxLe|
|00000460| 6e 67 74 68 29 0d 0a 7b | 0d 0a 09 45 64 69 74 42 |ngth)..{|...EditB|
|00000470| 6f 78 2e 4d 61 78 4c 65 | 6e 67 74 68 20 3d 20 4d |ox.MaxLe|ngth = M|
|00000480| 61 78 4c 65 6e 67 74 68 | 3b 0d 0a 7d 0d 0a 0d 0a |axLength|;..}....|
|00000490| 66 75 6e 63 74 69 6f 6e | 20 50 61 69 6e 74 28 43 |function| Paint(C|
|000004a0| 61 6e 76 61 73 20 43 2c | 20 66 6c 6f 61 74 20 58 |anvas C,| float X|
|000004b0| 2c 20 66 6c 6f 61 74 20 | 59 29 0d 0a 7b 0d 0a 09 |, float |Y)..{...|
|000004c0| 4c 6f 6f 6b 41 6e 64 46 | 65 65 6c 2e 45 64 69 74 |LookAndF|eel.Edit|
|000004d0| 62 6f 78 5f 44 72 61 77 | 28 53 65 6c 66 2c 20 43 |box_Draw|(Self, C|
|000004e0| 29 3b 0d 0a 09 53 75 70 | 65 72 2e 50 61 69 6e 74 |);...Sup|er.Paint|
|000004f0| 28 43 2c 20 58 2c 20 59 | 29 3b 0d 0a 7d 0d 0a 0d |(C, X, Y|);..}...|
|00000500| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 42 65 66 6f |...funct|ion Befo|
|00000510| 72 65 50 61 69 6e 74 28 | 43 61 6e 76 61 73 20 43 |rePaint(|Canvas C|
|00000520| 2c 20 66 6c 6f 61 74 20 | 58 2c 20 66 6c 6f 61 74 |, float |X, float|
|00000530| 20 59 29 0d 0a 7b 0d 0a | 09 53 75 70 65 72 2e 42 | Y)..{..|.Super.B|
|00000540| 65 66 6f 72 65 50 61 69 | 6e 74 28 43 2c 20 58 2c |eforePai|nt(C, X,|
|00000550| 20 59 29 3b 0d 0a 09 4c | 6f 6f 6b 41 6e 64 46 65 | Y);...L|ookAndFe|
|00000560| 65 6c 2e 45 64 69 74 62 | 6f 78 5f 53 65 74 75 70 |el.Editb|ox_Setup|
|00000570| 53 69 7a 65 73 28 53 65 | 6c 66 2c 20 43 29 3b 0d |Sizes(Se|lf, C);.|
|00000580| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 53 |.}....fu|nction S|
|00000590| 65 74 44 65 6c 61 79 65 | 64 4e 6f 74 69 66 79 28 |etDelaye|dNotify(|
|000005a0| 62 6f 6f 6c 20 62 44 65 | 6c 61 79 65 64 4e 6f 74 |bool bDe|layedNot|
|000005b0| 69 66 79 29 0d 0a 7b 0d | 0a 09 45 64 69 74 62 6f |ify)..{.|..Editbo|
|000005c0| 78 2e 62 44 65 6c 61 79 | 65 64 4e 6f 74 69 66 79 |x.bDelay|edNotify|
|000005d0| 20 3d 20 62 44 65 6c 61 | 79 65 64 4e 6f 74 69 66 | = bDela|yedNotif|
|000005e0| 79 3b 0d 0a 7d 0d 0a 00 |                         |y;..}...|        |
+--------+-------------------------+-------------------------+--------+--------+